setmacro as-as-guess 0 (execute (AlphaSpell -o T:temp -w \$Guess -n \$k -d $DDIR -G \$Dict) droplist List1 rx2 XES:Rexx/LoadList List1 T:temp connectgtbgadget as as words List1 setgtbgadget as as view 1 set lst 1)
setmacro as-as-match 0 (execute (AlphaSpell -o T:temp -w \$Guess -d $DDIR -P \$Dict) droplist List1 rx2 XES:Rexx/LoadList List1 T:temp connectgtbgadget as as words List1 setgtbgadget as as view 1 set lst 1)
setmacro as-as-anagrams 0 (execute (AlphaSpell -o T:temp -w \$Guess -d $DDIR -A \$Dict) droplist List1 rx2 XES:Rexx/LoadList List1 T:temp connectgtbgadget as as words List1 setgtbgadget as as view 1 set lst 1)
setmacro as-as-setr 0 (repstr \$Guess)
setmacro as-as-setf 0 (findstr \$Guess top first set wholeword 1)
setmacro as-as-word 1 (set Guess \$arg1 intcmp \$lst 2 if 3 (remove-word 2 \\\$idx2 addnode List2 head \\\$arg1 \\\$idx2))
setmacro as-as-k 1 (set k \$arg1)
setmacro gtb-aspell 0 (force rft (droplist List1 droplist List2) deflist List1 deflist List2 setgtbgadget as as words 0 setgtbgadget as as k \$k set idx0 0 set idx1 0 set idx2 0 opengtbwindow as as)